www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminModelComponentLabel\D_del_a_ascx.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>




<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->





<%
AJAXshowLoader()


%>

<%


if find_dataw("qitashezhi123","0",7)<>"1" and qx_if_max=0 then
response.redirect "../D_suodinguser.asp"
end if

%>

<%

set a=new DosAsp 
fph=request("fpath")
sss1=loadfile("../../Model/ComponentLabels/"&fph&"index_componentlabel.asp")

if instr(1,sss1,"$is_sys_componentlabel:",1)<>0 then
nd1_m_label_is_sys=trim(mid(sss1,instr(1,sss1,"$is_sys_componentlabel:",1)+23,instr(1,sss1,"$end_is_sys_componentlabel",1)-(instr(1,sss1,"$is_sys_componentlabel:",1)+23)))
else
nd1_m_label_is_sys=""
end if
if nd1_m_label_is_sys<>"1" then


if (a.Rd(server.mappath("../../Model/ComponentLabels/"&request("fpath"))))=true then


sssp=request("fpath")
sssspq=split(sssp,"/")

ooosss=""

for iii=0 to ubound(sssspq)-2

ooosss=ooosss&sssspq(iii)&"/"



next










%>
<script language=javascript>
alert("删除成功");

self.location="D_admin_custom_label.asp?fpath=<%=ooosss%>";

</script>





<%





else

%>


<script language=javascript>
alert("删除失败");
alert("<%="../../Model/ComponentLabels/"&request("fpath")%>");

self.location="D_admin_custom_label.asp?fpath=<%=request("fpath")%>";

</script>








<%





end if


else
%>




<script language=javascript>
alert("系统控件无法删除!");



history.go(-1);

</script>


<%




end if





AJAXcloseLoader()
%>